home *** CD-ROM | disk | FTP | other *** search
/ Skunkware 5 / Skunkware 5.iso / src / X11 / tclMotif-1.4 / programs / prog35 < prev    next >
Encoding:
Text File  |  1995-06-29  |  1.0 KB  |  53 lines
  1. # trying the slider example of D&D, from the drag create side
  2. xtAppInitialize -class Program
  3.  
  4. xmRowColumn .b managed
  5. # .b addAction exec
  6.  
  7. xmScrollBar .b.sb managed \
  8.   -orientation horizontal \
  9.   -width 150 \
  10.   -translations "#override <Btn2Down>: exec(startDrag %w)"
  11.  
  12. proc startDrag {w} {
  13.   $w dragStart \
  14.     -exportTargets COMPOUND_TEXT \
  15.     -numExportTargets 1 \
  16.     -convertProc {dragConvertProc %w %type %value}
  17. }
  18.  
  19. proc dragConvertProc {w type value} {
  20.   upvar 1 $type t
  21.   upvar 1 $value v
  22.  
  23.   $w getValues -value v
  24.   set t COMPOUND_TEXT
  25. }
  26.  
  27. # 
  28. #  drop side of this, as taken from prog32
  29. # 
  30.  
  31. xmPushButton .b.l2 managed -labelString "drag slider to me"
  32.  
  33. .b.l2 dropSiteRegister \
  34.     -dropProc {startDrop %dragContext} \
  35.     -numImportTargets 1 \
  36.     -importTargets COMPOUND_TEXT
  37.  
  38. proc startDrop {dragContext} {
  39.   $dragContext dropTransferStart \
  40.     -dropTransfers {{COMPOUND_TEXT .b.l2}} \
  41.     -numDropTransfers 1 \
  42.     -transferProc {doTransfer %closure {%value}}    
  43. }
  44.  
  45. proc doTransfer {destination value} {
  46.  
  47.   $destination setValues -labelString $value
  48. }
  49.  
  50. . realizeWidget
  51.  
  52. . mainLoop
  53.